home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / morphvec.lha / morphvec.s < prev   
Encoding:
Text File  |  1994-08-17  |  34.5 KB  |  1,694 lines
  1. ;********************************************
  2. ;********************************************
  3. ;***                      ***
  4. ;**  Mra & Mre Source Factory   13-03-93   **
  5. ;***                      ***
  6. ;********************************************
  7. ;********************************************
  8. o:
  9.     bsr    lbC1550
  10. lbC66
  11.     move.b    #$20,$DFF1DC
  12.     lea    $4E686,a0
  13. loops
  14.     move.l    #0,(a0)+
  15.     cmp.l    #$6EF9E,a0
  16.     blt.s    loops
  17. lbC82
  18.     lea    $4A73E,a0
  19. lbC88
  20.     move.l    #0,(a0)+
  21.     cmp.l    #$4E686,a0
  22.     bne.s    lbC88
  23.     bsr    lbC15FA
  24. lbW9A
  25.     dc.w    $6100
  26. lbC9C
  27.     move.b    (a0)+,(a2)+
  28.     bsr    lbC15FA
  29.     move.l    sp,lbL165E
  30.     dc.w    $4FF9
  31.     dc.w    4
  32. lbCAC
  33.     divu    (a4),d2
  34.     movem.l    d0-d7/a0-a6,-(sp)
  35. lbCB2
  36.     lea    lbW20B2(pc),a0
  37. lbCB6
  38.     move.w    8(a0),d0
  39.     add.w    d0,d0
  40.     subq.w    #1,d0
  41.     move.l    4(a0),a1
  42. loop
  43.     move.w    (a1),d2
  44.     add.w    d2,d2
  45.     add.w    d2,d2
  46.     move.w    d2,(a1)+
  47.     dbra    d0,loop
  48.  
  49.     lea    $12(a0),a0
  50.     cmp.l    #lbL20E8,a0
  51.     blt    lbCB6
  52.     lea    lbL20E8(pc),a1
  53.     lea    lbW20B2(pc),a0
  54.     moveq    #8,d0
  55. dongu
  56.     move.w    (a0)+,(a1)+
  57.     dbra    d0,dongu
  58.  
  59.     bsr    lbC1566
  60.     lea    lbW24C6(pc),a0
  61.     lea    lbL1190(pc),a1
  62.     lea    lbW2486(pc),a5
  63.     bsr    lbCFA8
  64.     lea    lbL1370(pc),a1
  65.     lea    lbW2232(pc),a0
  66.     lea    lbW21CE(pc),a5
  67.     bsr    lbCFA8
  68.     lea    $DFF000,a6
  69.     move.w    lbW20C2(pc),lbW1686
  70.     move.w    lbW20BC(pc),lbW163E
  71.     move.w    lbW20BE(pc),lbW1640
  72.     move.w    lbW20C0(pc),lbW1642
  73.     bsr    dalga
  74.     move.l    $6C.w,lbL165A
  75.     move.l    #deger,$6C.w
  76. lbC14A
  77.     tst.b    lak
  78.     bne.s    lbC178
  79.     tst.b    kak
  80.     beq.s    lbC14A
  81.     bsr    lbCE56
  82.     tst.b    lak
  83.     bne.s    lbC178
  84.     bsr    lbCD4C
  85.     st     tak
  86.     sf    kak
  87.     bra.s    lbC14A
  88. lbC178
  89.     move.l    lbL165A(pc),$6C.w
  90.     bsr    dalga
  91.     bsr    lbC15C6
  92.     bclr    #1,$BFE001
  93.     movem.l    (sp)+,d0-d7/a0-a6
  94.     move.l    lbL165E(pc),sp
  95.     moveq    #0,d0
  96.     rts
  97. degme
  98.     dc.l    0
  99. deger:
  100.     tst.b    dene+4        ;$72021
  101.     bne.s    lbc1cc
  102.     move.l    sp,lbl1662    ;$71fc8
  103.     move.l    a0,degme    ;$70b00
  104.     move.l    sp,a0
  105.     lea    $48408,sp
  106.     move.l    4(a0),4(sp)
  107.     move.l    (a0),(sp)
  108.     move.l    deger(pc),a0
  109.     st     dene+4
  110.  
  111. lbC1CC
  112.     movem.l    d0-d7/a0-a6,-(sp)
  113.     bsr    dalga
  114. lbC1D4
  115.     lea    lbW2D98(pc),a1
  116.     lea    lbW3198(pc),a2
  117.     move.l    lbL1652(pc),a0
  118.     move.l    lbL1656(pc),a4
  119.     lea    $DFF000,a6
  120.     bsr    lbC526
  121.     bsr    lbC5B6
  122.     tst.l    lbL1672
  123.     bne    lbC2DA
  124.     move.l    lbL1676(pc),a1
  125.     tst.b    sat
  126.     beq    lbC216
  127.     bsr    lbC23E
  128.     bsr    lbC60E
  129.     bra    lbC316
  130. lbC216
  131.     move.w    $10(a1),lbW1686
  132.     bsr    lbC8F4
  133.     cmp.l    #$5851E,lbLFA4
  134.     bne    lbC2D6
  135.     st     sat
  136.     bsr    lbC60E
  137.     bra    lbC316
  138. lbC23E
  139.     sf    sat
  140.     move.l    lbL1676(pc),a1
  141.     move.l    lbLFA4(pc),lbL35A
  142.     move.l    #$6EF9E,lbLFA4
  143.     lea    $6EF9E,a2
  144.     bsr    lbCE2E
  145.     move.w    $1A(a1),lbW1650
  146.     move.l    $12(a1),a0
  147.     move.l    $16(a1),a4
  148.     move.w    $22(a1),lbW1686
  149.     bsr    lbC8F4
  150.     move.w    8(a1),lbW1650
  151.     move.l    (a1),lbL1652
  152.     move.l    4(a1),lbL1656
  153.     move.w    $10(a1),lbW1686
  154.     move.l    lbL35A(pc),lbLFA4
  155.     move.l    #$4E686,lbLFA4
  156.     move.l    lbL167A(pc),a1
  157.     move.w    10(a1),lbW163E
  158.     move.w    12(a1),lbW1640
  159.     move.w    14(a1),lbW1642
  160.     move.b    #1,kak
  161.     rts
  162. lbC2D6
  163.     bsr    lbCECA
  164. lbC2DA
  165.     bsr    lbC60E
  166.     bsr    lbCF52
  167.     bra    lbCB80
  168. lbC2E6
  169.     add.w    #4,lbW163E
  170.     add.w    #8,lbW1640
  171.     add.w    #6,lbW1642
  172.     and.w    #$3FE,lbW163E
  173.     and.w    #$3FE,lbW1640
  174.     and.w    #$3FE,lbW1642
  175. lbC316
  176.     bsr    lbC35E
  177.     btst    #6,$BFE001
  178.     bne.s    lbC32A
  179.     st     lak
  180. lbC32A
  181.     move.w    #$20,$DFF09C
  182.     movem.l    (sp)+,d0-d7/a0-a6
  183.     tst.b    lak
  184.     beq    lbC358
  185.     move.l    a0,degme
  186.     move.l    sp,a0
  187.     move.l    lbL1662(pc),sp
  188.     move.l    4(a0),4(sp)
  189.     move.l    (a0),(sp)
  190.     move.l    degme(pc),a0
  191. lbC358
  192.     rte
  193. lbL35A
  194.     dc.l    0
  195. lbC35E
  196.     tst.w    kat
  197.     beq    lbC372
  198.     subq.w    #1,kat
  199.     bra    lbC46A
  200. lbC372
  201.     tst.l    lbL16A4
  202.     beq    lbC3E2
  203.     move.l    lbL16A4(pc),a0
  204.     cmp.l    #laf,a0
  205.     beq    lbC3B0
  206.     lea    2(a0),a1
  207.     move.l    a1,lbL16A4
  208.     lea    lbW24C6(pc),a1
  209.     moveq    #15,d0
  210. lbC39A
  211.     move.w    (a0),(a1)
  212.     lea    $1E(a0),a0
  213.     addq.w    #4,a1
  214.     dbra    d0,lbC39A
  215.     move.w    #1,kat
  216.     rts
  217. lbC3B0
  218.     move.l    #0,lbL16A4
  219.     lea    $56E76,a2
  220.     bsr    lbCE2E
  221.     lea    lbW24C6(pc),a0
  222.     moveq    #15,d0
  223. lbC3CA
  224.     move.w    #$6F7,(a0)
  225.     lea    4(a0),a0
  226.     dbra    d0,lbC3CA
  227.     move.l    #$56E76,lbL1698
  228.     rts
  229. lbC3E2
  230.     move.l    lbL1694(pc),a0
  231.     move.b    (a0)+,d0
  232.     move.l    a0,lbL1694
  233.     tst.b    d0
  234.     beq    lbC4C8
  235.     cmp.b    #1,d0
  236.     beq    lbC4D4
  237.     cmp.b    #2,d0
  238.     beq    lbC4EE
  239.     cmp.b    #3,d0
  240.     beq    lbC51A
  241.     cmp.b    #$20,d0
  242.     beq    lbC50A
  243.     lea    texttani2(pc),a1
  244. donus
  245.     cmp.b    (a1)+,d0
  246.     bne.s    donus
  247.     sub.l    #texttani2,a1
  248.     add.l    #$79616,a1
  249.     move.l    lbL1698(pc),a0
  250.     move.l    lbL169C(pc),a2
  251.     move.l    a1,(a2)+
  252.     move.l    a0,(a2)+
  253.     move.w    #7,(a2)+
  254.     move.l    a2,lbL169C
  255.     cmp.l    #lbW20B2,a2
  256.     bne.s    lbC450
  257.     lea    lbL1CCA(pc),a2
  258.     move.l    a2,lbL169C
  259. lbC450
  260.     move.l    #0,(a2)
  261.     move.w    #1,kat
  262.     addq.l    #1,lbL1698
  263.     addq.b    #1,lbB16B9
  264. lbC46A
  265.     move.l    lbL16A0(pc),a2
  266. lbC46E
  267.     move.l    (a2)+,a0
  268.     cmp.l    #0,a0
  269.     beq    lbC4C6
  270.     move.l    (a2)+,a1
  271.     move.w    (a2),d0
  272.     subq.w    #1,(a2)+
  273.     cmp.l    #lbW20B2,a2
  274.     bne.s    lbC48C
  275.     lea    lbL1CCA(pc),a2
  276. lbC48C
  277.     moveq    #7,d1
  278.     cmp.w    #$FFF9,d0
  279.     bgt    lbC4A0
  280.     move.l    a2,lbL16A0
  281.     bra    lbC46E
  282. lbC4A0
  283.     tst.w    d0
  284.     bmi    lbC4AE
  285.     btst    d0,(a0)
  286.     beq    lbC4AE
  287.     bset    d0,(a1)
  288. lbC4AE
  289.     addq.w    #1,d0
  290.     lea    $28(a1),a1
  291.     lea    $36(a0),a0
  292.     cmp.w    #8,d0
  293.     beq.s    lbC4C2
  294.     dbra    d1,lbC4A0
  295. lbC4C2
  296.     bra    lbC46E
  297. lbC4C6
  298.     rts
  299. lbC4C8
  300.     move.l    #test,lbL1694
  301.     rts
  302. lbC4D4
  303.     moveq    #$28,d0
  304.     sub.b    lbB16B9(pc),d0
  305.     add.w    #$140,d0
  306.     add.l    d0,lbL1698
  307.     sf    lbB16B9
  308.     bra    lbC46A
  309. lbC4EE
  310.     move.l    #lbL1190,lbL16A4
  311.     move.w    #$64,kat
  312.     sf    lbB16B9
  313.     bra    lbC46A
  314. lbC50A
  315.     addq.l    #1,lbL1698
  316.     addq.b    #1,lbB16B9
  317.     bra    lbC46A
  318. lbC51A
  319.     move.w    #$64,kat
  320.     bra    lbC46A
  321. lbC526
  322.     movem.l    d0/d1/a0,-(sp)
  323.     move.l    lbL168C(pc),a0
  324.     moveq    #0,d0
  325.     move.b    (a0)+,d0
  326.     cmp.b    #$FF,d0
  327.     bne.s    lbC544
  328.     subq.w    #1,a0
  329.     move.l    a0,lbL168C
  330.     bra    lbC5B0
  331. lbC544
  332.     move.l    a0,lbL168C
  333.     move.l    #$140,d1
  334.     move.l    #$4B,d4
  335.     sub.l    d0,d4
  336.     mulu    d0,d1
  337.     move.l    #$797C6,d3
  338.     sub.l    d1,d3
  339.     moveq    #3,d2
  340.     lea    bitpl+2(pc),a0
  341. loop1
  342.     move.w    d3,4(a0)
  343.     swap    d3
  344.     move.w    d3,(a0)
  345.     swap    d3
  346.     add.l    #$50,d3
  347.     lea    8(a0),a0
  348.     dbra    d2,loop1
  349.  
  350.     lea    lbW2232(pc),a0
  351.     move.l    d1,d0
  352.     divu    #$780,d0
  353.     addq.w    #1,d0
  354.     lsl.w    #1,d0
  355.     lea    lbL1370(pc),a1
  356.     add.w    d0,a1
  357.     moveq    #15,d1
  358. loop2
  359.     move.w    (a1),(a0)
  360.     lea    $1E(a1),a1
  361.     addq.w    #4,a0
  362.     dbra    d1,loop2
  363.  
  364.     lsl.w    #8,d4
  365.     move.w    #$7B0F,d5
  366.     sub.w    d4,d5
  367.     move.w    d5,bura
  368. lbC5B0
  369.     movem.l    (sp)+,d0/d1/a0
  370.     rts
  371. lbC5B6
  372.     movem.l    d0/d1/a0-a4,-(sp)
  373.     addq.l    #2,lbL1690
  374.     move.l    lbL1690(pc),a0
  375.     cmp.w    #$FFFF,(a0)
  376.     bne.s    lbC5D4
  377.     lea    renkler(pc),a0
  378.     move.l    a0,lbL1690
  379. lbC5D4
  380.     lea    lbW228A(pc),a1
  381.     lea    lbW241E(pc),a2
  382.     lea    lbW255E(pc),a3
  383.     lea    lbW26F2(pc),a4
  384.     moveq    #$31,d0
  385. git
  386.     move.w    (a0)+,d1
  387.     bpl    lbC5F4
  388.     lea    renkler(pc),a0
  389.     bra    git
  390. lbC5F4
  391.     move.w    d1,(a1)
  392.     move.w    d1,(a2)
  393.     move.w    d1,(a3)
  394.     move.w    d1,(a4)
  395.     addq.w    #4,a1
  396.     subq.w    #4,a2
  397.     addq.w    #4,a3
  398.     subq.w    #4,a4
  399.     dbra    d0,git
  400.     movem.l    (sp)+,d0/d1/a0-a4
  401.     rts
  402. lbC60E
  403.     tst.b    dene
  404.     beq    lbC620
  405.     sf    dene
  406.     rts
  407. lbC620
  408.     btst    #2,$DFF016
  409.     bne.s    lbC62C
  410.     rts
  411. lbC62C
  412.     move.w    lbW1682(pc),d7
  413. lbC630
  414.     tst.b    lbB16B4
  415.     bne    lbC818
  416.     tst.b    deve-2
  417.     bne    lbC864
  418.     tst.b    deve-2
  419.     beq.s    lbC654
  420.     subq.b    #1,deve
  421.     rts
  422. lbC654
  423.     tst.b    deve-2
  424.     beq    lbC662
  425.     bpl    lbC774
  426. lbC662
  427.     move.l    lbL166A(pc),a0
  428.     moveq    #0,d0
  429.     move.b    (a0)+,d0
  430.     bne.s    lbC672
  431.     lea    text(pc),a0
  432.     move.b    (a0)+,d0
  433. lbC672
  434.     move.l    a0,lbL166A
  435.     cmp.b    #$40,d0
  436.     beq    lbC7E8
  437.     cmp.b    #$7C,d0
  438.     beq    lbC7F8
  439.     cmp.b    #$5C,d0
  440.     beq    lbC808
  441.     cmp.b    #$1F,d0
  442.     bgt    lbC6A4
  443.     subq.w    #1,d0
  444.     move.w    d0,lbW1684
  445.     bra    lbC662
  446. lbC6A4
  447.     lea    texttani(pc),a1
  448. tanit
  449.     cmp.b    (a1)+,d0
  450.     bne.s    tanit
  451.     sub.l    #texttani,a1
  452.     move.l    a1,d0
  453.     lea    ascii(pc),a1
  454.     move.b    0(a1,d0.w),d2
  455.     move.b    d2,deve-2
  456.     lea    $77E0A,a2
  457.     add.w    d0,d0
  458.     add.l    a2,d0
  459. tanit1
  460.     btst    #14,2(a6)
  461.     bne.s    tanit1
  462.     move.l    lbL1666(pc),a0
  463.     move.l    d0,$50(a6)
  464.     move.l    a0,$48(a6)
  465.     move.l    a0,$54(a6)
  466.     lea    lbW3598(pc),a3
  467.     moveq    #0,d1
  468.     move.b    lbB16AF(pc),d1
  469.     move.l    d1,d4
  470.     add.w    d1,d1
  471.     add.w    d1,d1
  472.     add.l    d1,a3
  473.     move.l    a3,$4C(a6)
  474.     move.w    #$68,$64(a6)
  475.     move.w    #$FFFC,$62(a6)
  476.     move.w    #$56,$60(a6)
  477.     move.w    #$56,$66(a6)
  478.     move.l    #$FFFF0000,$44(a6)
  479.     ror.w    #4,d4
  480.     or.w    #$FF8,d4
  481.     move.w    d4,$40(a6)
  482.     move.w    #0,$42(a6)
  483.     move.w    #$E42,$58(a6)
  484. loop3
  485.     btst    #14,2(a6)
  486.     bne.s    loop3
  487.     lea    $2E(a0),a0
  488.     move.l    d0,$50(a6)
  489.     move.l    a3,$4C(a6)
  490.     move.l    a0,$48(a6)
  491.     move.l    a0,$54(a6)
  492.     move.w    #$E42,$58(a6)
  493.     add.b    d2,lbB16AF
  494. git2
  495.     cmp.b    #$10,lbB16AF
  496.     blt.s    lbC774
  497.     sub.b    #$10,lbB16AF
  498.     addq.l    #2,lbL1666
  499.     bra    git2
  500. lbC774
  501.     subq.b    #1,deve-2
  502.     moveq    #0,d0
  503.     move.b    lbB16B0(pc),d0
  504.     move.w    d0,d1
  505.     lsl.w    #4,d1
  506.     or.b    d0,d1
  507.     move.b    d1,cop2
  508.     move.l    lbL166E(pc),d0
  509.     cmp.l    #$4BC88,d0
  510.     bne.s    lbC7AE
  511.     move.l    #$4BC5A,d0
  512.     move.l    d0,lbL166E
  513.     sub.l    #$2E,lbL1666
  514. lbC7AE
  515.     bsr    lbC8BE
  516.     move.l    d0,lbL167E
  517.     move.b    lbB16B0(pc),lbB16B6
  518.     moveq    #0,d0
  519.     move.b    lbB16B0(pc),d0
  520.     subq.b    #1,d0
  521.     tst.b    d0
  522.     bpl.s    lbC7D4
  523.     moveq    #15,d0
  524.     addq.l    #2,lbL166E
  525. lbC7D4
  526.     move.b    d0,lbB16AF
  527.     dbra    d7,lbC630
  528.     move.w    lbW1684(pc),lbW1682
  529.     rts
  530. lbC7E8
  531.     move.b    #$64,deve-2
  532.     sf    deve-2
  533.     rts
  534. lbC7F8
  535.     move.b    #$14,lbB16B4
  536.     sf    deve-2
  537.     rts
  538. lbC808
  539.     move.b    #$14,deve-2
  540.     sf    deve-2
  541.     rts
  542. lbC818
  543.     subq.b    #1,lbB16B4
  544.     moveq    #$14,d1
  545.     sub.b    lbB16B4(pc),d1
  546.     move.l    lbL167E(pc),d0
  547.     mulu    #$10E,d1
  548.     add.l    d1,d0
  549.     bsr    lbC8BE
  550.     tst.b    lbB16B4
  551.     bne.s    lbC8AA
  552.     move.l    #$4BC56,lbL1666
  553.     move.l    #$4BC5A,lbL166E
  554.     sf    lbB16AF
  555.     sf    lbB16AF
  556.     bsr    lbC8DE
  557.     bra    lbC8AA
  558.     rts
  559. lbC864
  560.     subq.b    #1,deve-2
  561.     moveq    #$14,d1
  562.     sub.b    lbB16B5(pc),d1
  563.     move.l    lbL167E(pc),d0
  564.     mulu    #$10E,d1
  565.     sub.l    d1,d0
  566.     bsr    lbC8BE
  567.     tst.b    deve-2
  568.     bne.s    lbC8AA
  569.     move.l    #$4BC56,lbL1666
  570.     move.l    #$4BC5A,lbL166E
  571.     sf    lbB16AF
  572.     sf    lbB16AF
  573.     bsr    lbC8DE
  574. lbC8AA
  575.     moveq    #0,d0
  576.     move.b    lbB16B6(pc),d0
  577.     move.l    d0,d1
  578.     lsl.w    #4,d0
  579.     or.b    d1,d0
  580.     move.b    d0,cop2
  581.     rts
  582. lbC8BE    
  583.     lea    lbW2712(pc),a0
  584.     moveq    #2,d1
  585. lbC8C4
  586.     move.w    d0,4(a0)
  587.     swap    d0
  588.     move.w    d0,(a0)
  589.     swap    d0
  590.     add.l    #$5A,d0
  591.     lea    8(a0),a0
  592.     dbra    d1,lbC8C4
  593.     rts
  594. lbC8DE
  595.     lea    $4BC56,a0
  596.     move.l    #$A8B,d0
  597. lbC8EA
  598.     move.w    #0,(a0)+
  599.     dbra    d0,lbC8EA
  600.     rts
  601. lbC8F4
  602.     movem.l    d0-d7/a0-a6,-(sp)
  603.     move.l    lbL1676(pc),a5
  604.     lea    lbW2D98(pc),a1
  605.     lea    lbW3198(pc),a2
  606.     lea    lbL2A08(pc),a3
  607.     moveq    #0,d7
  608.     move.w    lbW163E(pc),d7
  609.     move.w    0(a1,d7.w),lbW1644
  610.     move.w    0(a2,d7.w),lbW1646
  611.     move.w    lbW1640(pc),d7
  612.     move.w    0(a1,d7.w),lbW1648
  613.     move.w    0(a2,d7.w),lbW164a
  614.     move.w    lbW1642(pc),d7
  615.     move.w    0(a1,d7.w),lbW164c
  616.     move.w    0(a2,d7.w),lbW164e
  617. lbC946
  618.     moveq    #0,d0
  619.     moveq    #0,d1
  620.     moveq    #0,d3
  621.     moveq    #0,d4
  622.     movem.w    (a0)+,d0-d2
  623.     move.w    d0,d3
  624.     move.w    d1,d4
  625.     muls    lbW1646(pc),d0
  626.     muls    lbW1644(pc),d4
  627.     muls    lbW1646(pc),d1
  628.     muls    lbW1644(pc),d3
  629.     sub.l    d4,d0
  630.     add.l    d3,d1
  631.     swap    d0
  632.     swap    d1
  633.     add.w    d0,d0
  634.     add.w    d1,d1
  635.     move.w    d0,d3
  636.     move.w    d2,d4
  637.     muls    lbW164A(pc),d0
  638.     muls    lbW1648(pc),d4
  639.     muls    lbW164A(pc),d2
  640.     muls    lbW1648(pc),d3
  641.     add.l    d4,d0
  642.     sub.l    d3,d2
  643.     swap    d0
  644.     swap    d2
  645.     add.w    d0,d0
  646.     add.w    d2,d2
  647.     move.w    d1,d3
  648.     move.w    d2,d4
  649.     muls    lbW164E(pc),d1
  650.     muls    lbW164C(pc),d4
  651.     muls    lbW164E(pc),d2
  652.     muls    lbW164C(pc),d3
  653.     sub.l    d4,d1
  654.     add.l    d3,d2
  655.     swap    d1
  656.     swap    d2
  657.     add.w    d1,d1
  658.     add.w    d2,d2
  659.     ext.l    d0
  660.     ext.l    d1
  661.     asl.l    #8,d0
  662.     asl.l    #8,d1
  663.     moveq    #0,d3
  664.     move.w    lbW1686(pc),d3
  665.     sub.l    d2,d3
  666.     divs    d3,d0
  667.     divs    d3,d1
  668.     add.w    #$A0,d0
  669.     add.w    #$46,d1
  670.     move.w    d0,(a3)+
  671.     move.w    d1,(a3)+
  672.     cmp.w    #$FFFF,(a0)
  673.     bne    lbC946
  674.     move.l    lbLFA4(pc),a0
  675.     bsr    lbCF7A
  676.     lea    lbL2A08(pc),a1
  677.     lea    lbW2B98(pc),a3
  678.     move.l    a4,a2
  679.     move.w    lbW1650(pc),d7
  680.     subq.w    #1,d7
  681. lbC9F2
  682.     movem.w    (a2)+,d5/d6
  683.     movem.w    0(a1,d5.w),d0/d1
  684.     movem.w    0(a1,d6.w),d2/d3
  685.     bsr    lbCAA2
  686.     pea    (a0)
  687.     cmp.w    d1,d3
  688.     bgt.s    lbCA10
  689.     exg    d0,d2
  690.     exg    d1,d3
  691. lbCA10
  692.     cmp.w    d1,d3
  693.     bne.s    lbCA1A
  694.     cmp.w    d0,d2
  695.     beq    lbCA96
  696. lbCA1A    move.w    d0,d4
  697.     move.w    d1,d5
  698.     add.w    d5,d5
  699.     move.w    0(a3,d5.w),d5
  700.     add.l    d5,a0
  701.     lsr.w    #4,d4
  702.     add.w    d4,d4
  703.     add.w    d4,a0
  704.     sub.w    d0,d2
  705.     sub.w    d1,d3
  706.     moveq    #15,d5
  707.     and.l    d5,d0
  708.     ror.l    #4,d0
  709.     move.w    #4,d0
  710.     tst.w    d2
  711.     bpl.s    lbCA42
  712.     addq.w    #1,d0
  713.     neg.w    d2
  714. lbCA42
  715.     cmp.w    d2,d3
  716.     ble.s    lbCA4C
  717.     exg    d2,d3
  718.     subq.w    #4,d0
  719.     add.w    d0,d0
  720. lbCA4C
  721.     move.w    d3,d4
  722.     sub.w    d2,d4
  723.     add.w    d4,d4
  724.     add.w    d4,d4
  725.     add.w    d3,d3
  726.     move.w    d3,d6
  727.     sub.w    d2,d6
  728.     bpl.s    lbCA60
  729.     or.w    #$10,d0
  730. lbCA60
  731.     add.w    d3,d3
  732.     add.w    d0,d0
  733.     add.w    d0,d0
  734.     addq.w    #1,d2
  735.     lsl.w    #6,d2
  736.     addq.w    #2,d2
  737.     swap    d3
  738.     move.w    d4,d3
  739.     or.l    #$BCA0001,d0
  740. lbCA76
  741.     btst    #14,2(a6)
  742.     bne.s    lbCA76
  743.     move.l    d3,$62(a6)
  744.     move.w    d6,$52(a6)
  745.     move.l    a0,$48(a6)
  746.     move.l    a0,$54(a6)
  747.     move.l    d0,$40(a6)
  748.     move.w    d2,$58(a6)
  749. lbCA96
  750.     move.l    (sp)+,a0
  751.     dbra    d7,lbC9F2
  752.     movem.l    (sp)+,d0-d7/a0-a6
  753.     rts
  754. lbCAA2
  755.     movem.l    d4-d7/a0-a6,-(sp)
  756.     tst.w    d1
  757.     bpl.s    lbCAB4
  758.     tst.w    d3
  759.     bmi    lbCAE0
  760.     bsr    lbCB38
  761. lbCAB4
  762.     tst.w    d3
  763.     bpl.s    lbCAC2
  764.     tst.w    d1
  765.     bmi    lbCAE0
  766.     bsr    lbCB5C
  767. lbCAC2
  768.     cmp.w    #$90,d3
  769.     ble    lbCACE
  770.     bsr    lbCB10
  771. lbCACE
  772.     cmp.w    #$90,d1
  773.     ble    lbCADA
  774.     bsr    lbCAE8
  775. lbCADA
  776.     movem.l    (sp)+,d4-d7/a0-a6
  777.     rts
  778. lbCAE0
  779.     move.w    d1,d3
  780.     move.w    d0,d2
  781.     bra    lbCADA
  782. lbCAE8
  783.     moveq    #0,d4
  784.     moveq    #0,d5
  785.     moveq    #0,d6
  786.     move.w    d1,d4
  787.     sub.w    d3,d4
  788.     move.w    d3,d5
  789.     sub.w    #$90,d5
  790.     move.w    d2,d6
  791.     sub.w    d0,d6
  792.     muls    d6,d5
  793.     tst.w    d4
  794.     beq    lbCB06
  795.     divs    d4,d5
  796. lbCB06
  797.     move.w    d2,d0
  798.     add.w    d5,d0
  799.     move.w    #$90,d1
  800.     rts
  801. lbCB10
  802.     moveq    #0,d4
  803.     moveq    #0,d5
  804.     moveq    #0,d6
  805.     move.w    d3,d4
  806.     sub.w    d1,d4
  807.     move.w    d1,d5
  808.     sub.w    #$90,d5
  809.     move.w    d0,d6
  810.     sub.w    d2,d6
  811.     muls    d6,d5
  812.     tst.w    d4
  813.     beq    lbCB2E
  814.     divs    d4,d5
  815. lbCB2E
  816.     move.w    d0,d2
  817.     add.w    d5,d2
  818.     move.w    #$90,d3
  819.     rts
  820. lbCB38
  821.     moveq    #0,d4
  822.     moveq    #0,d5
  823.     moveq    #0,d6
  824.     move.w    d1,d4
  825.     sub.w    d3,d4
  826.     moveq    #0,d5
  827.     sub.w    d3,d5
  828.     move.w    d0,d6
  829.     sub.w    d2,d6
  830.     muls    d6,d5
  831.     tst.w    d4
  832.     beq    lbCB54
  833.     divs    d4,d5
  834. lbCB54
  835.     move.w    d2,d0
  836.     add.w    d5,d0
  837.     moveq    #0,d1
  838.     rts
  839. lbCB5C
  840.     moveq    #0,d4
  841.     moveq    #0,d5
  842.     moveq    #0,d6
  843.     move.w    d3,d4
  844.     sub.w    d1,d4
  845.     moveq    #0,d5
  846.     sub.w    d1,d5
  847.     move.w    d2,d6
  848.     sub.w    d0,d6
  849.     muls    d6,d5
  850.     tst.w    d4
  851.     beq    lbCB78
  852.     divs    d4,d5
  853. lbCB78
  854.     move.w    d0,d2
  855.     add.w    d5,d2
  856.     moveq    #0,d3
  857.     rts
  858. lbCB80
  859.     tst.l    lbL1672
  860.     bne.s    lbCBCE
  861.     move.l    lbL1676(pc),a1
  862.     move.w    10(a1),d0
  863.     cmp.w    lbW163E(pc),d0
  864.     bne    lbC2E6
  865.     move.w    12(a1),d0
  866.     cmp.w    lbW1640(pc),d0
  867.     bne    lbC2E6
  868.     move.w    14(a1),d0
  869.     cmp.w    lbW1642(pc),d0
  870.     bne    lbC2E6
  871.     tst.b    tak
  872.     beq    lbC2E6
  873.     move.l    #$56E76,lbL1672
  874.     move.l    #$4E686,lbl1688
  875. lbCBCE
  876.     tst.b    deve
  877.     beq    lbCBE8
  878.     subq.b    #1,deve
  879.     tst.b    deve
  880.     bne    lbC316
  881. lbCBE8
  882.     move.l    lbL1676(pc),a1
  883.     move.l    a1,lbl167a
  884.     add.l    #$16A8,lbL1672
  885.     move.l    lbL1672(pc),d0
  886.     cmp.l    #$6EF9E,d0
  887.     bne    lbCC86
  888.     move.l    lbL1676(pc),a1
  889.     move.l    #0,lbL1672
  890.     move.l    lbL1676(pc),a1
  891.     lea    $12(a1),a1
  892.     cmp.l    #lbL20E8,a1
  893.     bne.s    lbCC2C
  894.     lea    lbW20B2(pc),a1
  895. lbCC2C
  896.     move.l    a1,lbL1676
  897.     move.w    8(a1),lbW1650
  898.     move.l    (a1),lbL1652
  899.     move.l    4(a1),lbL1656
  900.     move.w    10(a1),lbW163E
  901.     move.w    12(a1),lbW1640
  902.     move.w    14(a1),lbW1642
  903.     sf    tak
  904.     move.l    #$5851E,lbLFA4
  905.     bsr    lbCF52
  906.     st     dene
  907.     move.b    #3,lbB16B9
  908.     bra    lbC1D4
  909. lbCC86
  910.     move.l    d0,d5
  911.     move.w    d5,bit1
  912.     swap    d5
  913.     move.w    d5,bit0
  914.     swap    d5
  915.     cmp.l    #$5851E,d0
  916.     beq.s    lbCCF2
  917.     sub.l    #$16A8,d5
  918.     move.w    d5,bit3
  919.     swap    d5
  920.     move.w    d5,bit2
  921.     swap    d5
  922.     cmp.l    #$59BC6,d0
  923.     beq.s    lbcCF2
  924.     sub.l    #$16A8,d5
  925.     move.w    d5,bit5
  926.     swap    d5
  927.     move.w    d5,bit4
  928.     swap    d5
  929.     cmp.l    #$5B26E,d0
  930.     beq.s    lbCCF2
  931.     sub.l    #$16A8,d5
  932.     move.w    d5,bit7
  933.     swap    d5
  934.     move.w    d5,bit6
  935.     swap    d5
  936. lbCCF2
  937.     move.b    #2,deve
  938.     move.l    lbL1688(pc),a2
  939.     cmp.l    #0,a2
  940.     beq    lbCD20
  941.     bsr    lbCE2E
  942.     lea    $16A8(a2),a2
  943.     cmp.l    #$56E76,a2
  944.     bne.s    lbCD1A
  945.     sub.l    a2,a2
  946. lbCD1A
  947.     move.l    a2,lbl1688
  948. lbCD20
  949.     cmp.l    #$6C24E,lbL1672
  950.     blt.s    lbCD3C
  951.     sf    deve
  952.     lea    $5851E,a2
  953.     bsr    lbCE2E
  954. lbCD3C
  955.     btst    #2,$DFF016
  956.     bne    lbC316
  957.     bra    lbC316
  958. lbCD4C
  959.     lea    $4960E,a0
  960.     lea    $484DE,a1
  961.     lea    lbW2B98(pc),a4
  962.     lea    $59BC6,a2
  963.     lea    lbW1C50(pc),a5
  964.     bsr    lbCE2E
  965.     moveq    #1,d4
  966.     moveq    #0,d0
  967.     moveq    #0,d1
  968.     moveq    #0,d2
  969.     moveq    #0,d3
  970.     moveq    #0,d5
  971.     moveq    #0,d6
  972.     moveq    #0,d7
  973. lbCD7A
  974.     move.w    (a0)+,d0
  975.     bmi    lbCDC4
  976.     move.w    (a0)+,d1
  977.     move.w    (a1)+,d2
  978.     bmi    lbCDDA
  979.     move.w    (a1)+,d3
  980.     sub.w    d0,d2
  981.     sub.w    d1,d3
  982.     muls    d4,d2
  983.     muls    d4,d3
  984.     divs    #15,d2
  985.     divs    #15,d3
  986.     and.l    #$FFFF,d2
  987.     and.l    #$FFFF,d3
  988.     add.w    d0,d2
  989.     add.w    d1,d3
  990.     add.w    d3,d3
  991.     move.w    0(a4,d3.w),d3
  992.     move.w    d2,d6
  993.     lsr.w    #3,d6
  994.     add.w    d6,d3
  995.     and.w    #7,d2
  996.     move.b    0(a5,d2.w),d5
  997.     or.b    d5,0(a2,d3.l)
  998.     bra.s    lbCD7A
  999. lbCDC4
  1000.     st     lbL1370
  1001.     tst.b    lbL1370
  1002.     bne.s    lbCDF2
  1003.     lea    $4960E,a0
  1004.     bra.s    lbCD7A
  1005. lbCDDA
  1006.     st     lbL1370
  1007.     tst.b    lbL1370
  1008.     bne.s    lbCDF2
  1009.     lea    $484DE,a1
  1010.     bra    lbCD7A
  1011. lbCDF2
  1012.     addq.b    #1,d4
  1013.     cmp.l    #$6EF9E,a2
  1014.     beq    lbCE26
  1015.     tst.b    lak
  1016.     bne.s    lbCE26
  1017.     move.w    #0,lbL1370
  1018.     lea    $4960E,a0
  1019.     lea    $484DE,a1
  1020.     lea    $16A8(a2),a2
  1021.     bsr    lbCE2E
  1022.     bra    lbCD7A
  1023. lbCE26
  1024.     sf    kak
  1025.     rts
  1026. lbCE2E
  1027.     btst    #14,2(a6)
  1028.     bne.s    lbCE2E
  1029.     move.l    a2,$54(a6)
  1030.     move.w    #$100,$40(a6)
  1031.     move.w    #0,$42(a6)
  1032.     move.w    #0,$66(a6)
  1033.     move.w    #$2454,$58(a6)
  1034.     rts
  1035.     dc.w    0
  1036. lbCE56
  1037.     lea    $5851E,a0
  1038.     lea    $6EF9E,a1
  1039.     lea    $16A8(a0),a2
  1040.     lea    $4960E,a3
  1041.     lea    $484DE,a4
  1042.     bsr.s    lbCE76
  1043.     rts
  1044. lbCE76
  1045.     moveq    #7,d0
  1046.     moveq    #0,d1
  1047.     moveq    #0,d2
  1048.     moveq    #0,d3
  1049.     moveq    #0,d4
  1050. lbCE80
  1051.     tst.b    lak
  1052.     bne.s    lbCEBC
  1053.     btst    d0,(a0)
  1054.     beq.s    lbCE92
  1055.     move.w    d1,(a3)+
  1056.     move.w    d2,(a3)+
  1057.     addq.w    #1,d3
  1058. lbCE92
  1059.     btst    d0,(a1)
  1060.     beq.s    lbCE9C
  1061.     move.w    d1,(a4)+
  1062.     move.w    d2,(a4)+
  1063.     addq.w    #1,d4
  1064. lbCE9C
  1065.     subq.b    #1,d0
  1066.     addq.w    #1,d1
  1067.     cmp.b    #$FF,d0
  1068.     bne.s    lbCE80
  1069.     addq.w    #1,a0
  1070.     addq.w    #1,a1
  1071.     moveq    #7,d0
  1072.     cmp.l    a0,a2
  1073.     beq.s    lbCEBC
  1074.     cmp.w    #$140,d1
  1075.     bne.s    lbCE80
  1076.     moveq    #0,d1
  1077.     addq.w    #1,d2
  1078.     bra.s    lbCE80
  1079. lbcEBC    
  1080.     move.l    #$FFFFFFFF,(a3)
  1081.     move.l    #$FFFFFFFF,(a4)
  1082.     rts
  1083. lbCECA
  1084.     cmp.l    #$5851E,lbLFA4
  1085.     bne.s    lbCEE2
  1086.     move.l    #$4E686,lbLFA4
  1087.     bra.s    lbCF50
  1088. lbCEE2
  1089.     move.l    lbLFA4(pc),d0
  1090.     cmp.l    #$557CE,lbLFA4
  1091.     bne.s    lbCEFE
  1092.     move.l    #$4E686,lbLFA4
  1093.     bra.s    lbCF08
  1094. lbCEFE
  1095.     add.l    #$16A8,lbLFA4
  1096. lbCF08
  1097.     lea    bit0(pc),a0
  1098.     moveq    #3,d1
  1099. lbCF0E
  1100.     cmp.l    #$4CFDE,d0
  1101.     bne    lbCF38
  1102.     tst.b    lbB16B9
  1103.     beq    lbCF32
  1104.     move.l    #$6D8F6,d0
  1105.     subq.b    #1,lbB16B9
  1106.     bra    lbCF38
  1107. lbCF32
  1108.     move.l    #$557CE,d0
  1109. lbCF38
  1110.     move.w    d0,4(a0)
  1111.     swap    d0
  1112.     move.w    d0,(a0)
  1113.     swap    d0
  1114.     lea    8(a0),a0
  1115.     sub.l    #$16A8,d0
  1116.     dbra    d1,lbCF0E
  1117. lbCF50
  1118.     rts
  1119. lbCF52    
  1120.     btst    #14,2(a6)
  1121.     bne.s    lbCF52
  1122.     move.l    lbLFA4(pc),$54(a6)
  1123.     move.w    #$100,$40(a6)
  1124.     move.w    #0,$42(a6)
  1125.     move.w    #0,$66(a6)
  1126.     move.w    #$2454,$58(a6)
  1127.     rts
  1128. lbCF7A
  1129.     btst    #14,2(a6)
  1130.     bne.s    lbCF7A
  1131.     move.w    #$FFFF,$72(a6)
  1132.     move.l    #$FFFFFFFF,$44(a6)
  1133.     move.w    #$28,$60(a6)
  1134.     move.w    #$28,$66(a6)
  1135.     move.w    #$8000,$74(a6)
  1136.     rts
  1137. lbLFA4
  1138.     dc.l    $5851E
  1139. lbCFA8
  1140.     move.l    #15,d0
  1141.     moveq    #0,d6
  1142. lbCFB0
  1143.     move.w    (a5)+,d7
  1144.     addq.w    #2,a5
  1145.     move.l    d7,d1
  1146.     and.w    #$F00,d1
  1147.     asr.w    #8,d1
  1148.     move.w    d1,lbW1094
  1149.     move.l    d7,d1
  1150.     and.w    #$F0,d1
  1151.     asr.w    #4,d1
  1152.     move.w    d1,lbW1096
  1153.     move.l    d7,d1
  1154.     and.w    #15,d1
  1155.     move.w    d1,lbW1098
  1156.     move.w    (a0),d6
  1157.     lea    4(a0),a0
  1158.     move.l    d6,d1
  1159.     and.w    #$F00,d1
  1160.     asr.w    #8,d1
  1161.     move.w    #$100,lbW109a
  1162.     move.w    lbW1094(pc),d2
  1163.     sub.w    d1,d2
  1164.     tst.w    d2
  1165.     bpl.s    lbC1006
  1166.     move.w    #$FF00,lbW109a
  1167.     neg.w    d2
  1168. lbC1006
  1169.     move.l    d6,d1
  1170.     and.w    #$F0,d1
  1171.     asr.w    #4,d1
  1172.     move.w    #$10,lbW109c
  1173.     move.w    lbW1096(pc),d3
  1174.     sub.w    d1,d3
  1175.     tst.w    d3
  1176.     bpl.s    lbC102A
  1177.     move.w    #$FFF0,lbW109c
  1178.     neg.w    d3
  1179. lbC102A
  1180.     move.l    d6,d1
  1181.     and.w    #15,d1
  1182.     move.w    #1,lbW109e
  1183.     move.w    lbW1098(pc),d4
  1184.     sub.w    d1,d4
  1185.     tst.w    d4
  1186.     bpl.s    lbC104C
  1187.     move.w    #$FFFF,lbW109e
  1188.     neg.w    d4
  1189. lbC104C
  1190.     move.l    #14,d1
  1191.     lea    lbL10A0(pc),a2
  1192.     mulu    #15,d2
  1193.     add.l    d2,a2
  1194.     lea    lbL10A0(pc),a3
  1195.     mulu    #15,d3
  1196.     add.l    d3,a3
  1197.     lea    lbL10A0(pc),a4
  1198.     mulu    #15,d4
  1199.     add.l    d4,a4
  1200. lbC1070
  1201.     tst.b    (a2)+
  1202.     beq.s    lbC1078
  1203.     add.w    lbW109A(pc),d6
  1204. lbC1078
  1205.     tst.b    (a3)+
  1206.     beq.s    lbC1080
  1207.     add.w    lbW109C(pc),d6
  1208. lbC1080
  1209.     tst.b    (a4)+
  1210.     beq.s    lbC1088
  1211.     add.w    lbW109E(pc),d6
  1212. lbC1088
  1213.     move.w    d6,(a1)+
  1214.     dbra    d1,lbC1070
  1215.     dbra    d0,lbCFB0
  1216.     rts
  1217.  
  1218. lbW1094    dc.w    0
  1219. lbW1096    dc.w    0
  1220. lbW1098    dc.w    0
  1221. lbW109A    dc.w    0
  1222. lbW109C    dc.w    0
  1223. lbW109E    dc.w    0
  1224. lbL10A0
  1225.     dc.l    0,0,0,0,0,$100,0,0,$100,0,$10000,0,$1000000
  1226.     dc.l    $1000000,$1000000,$100,$100,$100,$10000,$1000001
  1227.     dc.l    $100,$10000,$1000001,$10000,$1000100,$10001,$100
  1228.     dc.l    $1000100,$1000100,$1000100,$1000100,$1000101,$10001
  1229.     dc.l    $10001,$10001,$1000100,$1010001,$1000100,$1010001
  1230.     dc.l    $1000101,$10101,$10100,$1010100,$1010100,$1010100
  1231.     dc.l    $1010101,$1010100,$1010100,$1010001,$1010100
  1232.     dc.l    $1010101,$1010101,$1000101,$1010101,$1010101
  1233.     dc.l    $1010101,$10101,$1010101,$1010101,$1010101
  1234. lbL1190
  1235.     blk.w    15,0
  1236. laf:
  1237.     blk.w    225,0
  1238. lbL1370
  1239.     blk.l    120,0
  1240. lbC1550
  1241.     move.l    4.w,a6
  1242.     lea    graph(pc),a1
  1243.     moveq    #0,d0
  1244.     jsr    -$228(a6)
  1245.     move.l    d0,lbL1630
  1246.     rts
  1247. lbC1566
  1248.     move.l    4.w,a6
  1249.     move.l    lbL1630(pc),a1
  1250.     jsr    -$19E(a6)
  1251.     rts
  1252. lbC1574
  1253.     move.l    lbL1630(pc),a0
  1254.     move.l    $26(a0),lbL1634
  1255.     move.l    $32(a0),lbw163e
  1256.     move.l    #copper,$DFF080
  1257.     move.w    $DFF01C,lbw1638
  1258.     or.w    #$8000,lbw1638
  1259.     move.w    #$7FFF,$DFF096
  1260.     move.w    #$87C0,$DFF096
  1261.     move.w    #$7FFF,$DFF09A
  1262.     move.w    #$C020,$DFF09A
  1263.     rts
  1264. lbC15C6
  1265.     move.w    #$7FFF,$DFF09A
  1266.     move.w    lbw1638,$DFF09A
  1267.     move.w    #$7FFF,$DFF096
  1268.     move.w    #$83F0,$DFF096
  1269.     move.l    lbL1634(pc),$DFF080
  1270.     move.l    lbL1638(pc),$DFF084
  1271.     rts
  1272. lbC15FA
  1273.     cmp.b    #$F8,$DFF006
  1274.     bne.s    lbC15FA
  1275.     rts
  1276. lbC1606
  1277.     btst    #6,$BFE001
  1278.     bne.s    lbC1606
  1279.     rts
  1280. lbC1612
  1281.     btst    #2,$DFF016
  1282.     bne.s    lbC1612
  1283.     rts
  1284. graph    dc.b    'graphics.library',0,0
  1285. lbL1630    dc.l    0
  1286. lbL1634    dc.l    0
  1287. lbL1638    dc.l    0
  1288. lbw1638    dc.w    0
  1289. lbW163E    dc.w    0
  1290. lbW1640    dc.w    0
  1291. lbW1642    dc.w    0
  1292. lbW1644    dc.w    0
  1293. lbW1646    dc.w    0
  1294. lbW1648    dc.w    0
  1295. lbW164A    dc.w    0
  1296. lbW164C    dc.w    0
  1297. lbW164E    dc.w    0
  1298. lbW1650    dc.w    $1E
  1299. lbL1652    dc.l    lamba
  1300. lbL1656    dc.l    devre
  1301. lbL165A    dc.l    0
  1302. lbL165E    dc.l    0
  1303. lbL1662    dc.l    0
  1304. lbL1666    dc.l    degerler
  1305. lbL166A    dc.l    text+2
  1306. lbL166E    dc.l    degerler1
  1307. lbL1672    dc.l    0
  1308. lbL1676    dc.l    lbW20B2
  1309. lbL167A    dc.l    lbW20B2
  1310. lbL167E    dc.l    0
  1311. lbW1682    dc.w    1
  1312. lbW1684    dc.w    1
  1313. lbW1686    dc.w    0
  1314. lbL1688    dc.l    0
  1315. lbL168C    dc.l    lbB16B9+4
  1316. lbL1690    dc.l    renkler
  1317. lbL1694    dc.l    test
  1318. lbL1698    dc.l    degerler2
  1319. lbL169C    dc.l    lbL1CCA
  1320. lbL16A0    dc.l    lbL1CCA
  1321. lbL16A4    dc.l    0
  1322. kat:        dc.w    $3200
  1323. sat:        dc.w    00
  1324. kak:        dc.b    0
  1325. lak:        dc.b    0
  1326. tak:        dc.b    0
  1327. lbB16AF    dc.b    12
  1328. lbB16B0    dc.b    0,0,0
  1329. deve:        dc.b    0
  1330. lbB16B4    dc.b    0
  1331. lbB16B5    dc.b    0
  1332. lbB16B6    dc.b    0
  1333. dene:        blk.b    2,0
  1334. lbB16B9
  1335.     dc.b    0,0,0,$4A,$47,$44,$41,$3E,$3B,$38,$35,$32,$35,$38
  1336.     dc.b    $3B,$3D,$3F,$41,$42,$43,$44,$44,$44,$44,$43,$42,$41
  1337.     dc.b    $3F,$3D,$3B,$38,$35,$32,$2F,$2C,$29,$26,$23,$20,$1D
  1338.     dc.b    $1A,$1D,$20,$23,$25,$27,$29,$2A,$2B,$2C,$2C,$2C,$2C
  1339.     dc.b    $2B,$2A,$29,$27,$25,$23,$20,$1D,$1A,$17,$14,$11,14
  1340.     dc.b    11,8,5,2,5,8,11,13,15,$11,$12,$13,$14,$14,$14,$14
  1341.     dc.b    $13,$12,$11,15,13,11,8,5,2,0,$FF
  1342. texttani
  1343.     dc.b    'abcdefghijklmnopqrstuvwxyz1234567890., "!?7:;'
  1344.     dc.b    '-+()/\$% '
  1345. texttani2    dc.b    'abcdefghijklmnopqrstuvwxyz1234567890.!(), "$%'
  1346.     dc.b    '/\:?+-[]'
  1347.  
  1348. text    dc.b    '     '
  1349.     dc.b    3
  1350.     dc.b    'text   '
  1351.     dc.b    ' ',0
  1352.     dc.b    1
  1353. test
  1354.     blk.b    627,0
  1355. lbW1C50
  1356.     dc.w    $8040,$2010,$804,$201
  1357. ascii
  1358.     dc.w    $D0D,$D0D,$D0D,$D0D,$50D,$D0D,$100D,$D0D,$D0D,$D0D
  1359.     dc.w    $D0D,$100D,$D0D,$80D,$D0D,$D0D,$D0D,$D0D,$606,$60A
  1360.     dc.w    $60D,6,$60D,$D08,$80D,$D0D,$D0D,0,0,0,0,0,0,0,0,0,0
  1361.     dc.w    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1362. lbL1CCA    blk.l    250,0
  1363. lbW20B2    dc.l    lamba,devre
  1364.     dc.w    $1E
  1365. lbW20BC    dc.w    $118
  1366. lbW20BE    dc.w    $230
  1367. lbW20C0    dc.w    $1A4
  1368. lbW20C2
  1369.     dc.w    $998,
  1370.     dc.l    mmm
  1371.     dc.l    kkk
  1372.     dc.w    13,$F0,$1E0,$168,$AC4
  1373.     dc.l    lll
  1374.     dc.l    ddd
  1375.     dc.w    $18,$248,$90,$16C,$740
  1376. lbL20E8    blk.l    10,0
  1377. renkler:
  1378.     dc.w    $FF0,$EF1,$DF2,$CF3,$BF4,$AF5,$9F6,$8F7,$7F8,$6F9
  1379.     dc.w    $5FA,$4FB,$3FC,$2FD,$1FE,$FF,$1EF,$2DF,$3CF,$4BF
  1380.     dc.w    $5AF,$69F,$78F,$87F,$96F,$A5F,$B4F,$C3F,$D2F,$E1F
  1381.     dc.w    $F0F,$E0F,$D0F,$C0F,$B0F,$A0F,$90F,$80F,$70F,$60F
  1382.     dc.w    $50F,$40F,$30F,$20F,$10F,15,$1E,$2D,$3C,$4B,$5A,$69
  1383.     dc.w    $78,$87,$96,$A5,$B4,$C3,$D2,$E1,$F0,$1F0,$2F0,$3F0
  1384.     dc.w    $4F0,$5F0,$6F0,$7F0,$8F0,$9F0,$AF0,$BF0,$CF0,$DF0
  1385.     dc.w    $EF0,$FFFF
  1386. copper
  1387.     dc.w    $108,$F0,$10A,$F0
  1388.     dc.w    $100,$C200
  1389.     dc.w    $102,0,$104,0
  1390.     dc.w    $92,$3C,$94,$D4
  1391.     dc.w    $8E,$3081,$90,$78C1
  1392.     dc.w    $180
  1393. lbW21CE
  1394.     dc.w    $21,$182,$21,$184,$21,$186,$21,$188,$21,$18A,$21
  1395.     dc.w    $18C,$21,$18E,$21,$190,$21,$192,$21,$194,$21,$196
  1396.     dc.w    $21,$198,$21,$19A,$21,$19C,$21,$19E,$21
  1397. bitpl:
  1398.     dc.w    $E0,0,$E2,0
  1399.     dc.w    $E4,0,$E6,0
  1400.     dc.w    $E8,0,$EA,0
  1401.     dc.w    $EC,0,$EE,0
  1402.     dc.w    $7B0F,$FFFE,$180
  1403. lbW2232
  1404.     dc.w    $21,$182,$33,$184,$FFF,$186,$35,$188,$58,$18A,$267
  1405.     dc.w    $18C,$465,$18E,$343,$190,$433,$192,$644,$194,$654
  1406.     dc.w    $196,$553,$198,0,$19A,$700,$19C,$6CC,$19E,$6CC
  1407.     dc.w    $770F,$FFFE,$182,$21
  1408.     dc.w    $100,$200
  1409.     dc.w    $7B0F,$FFFE,$180,$9BD
  1410.     dc.w    $7C2D,$FFFE,$180
  1411. lbW228A
  1412.     dc.w    0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1413.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1414.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1415.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1416.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1417.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1418.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1419.     dc.w    $7D2D,$FFFE
  1420.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1421.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1422.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1423.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1424.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1425.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1426.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1427.     dc.w    $180,0,$180,0,$180
  1428. lbW241E
  1429.     dc.w    0
  1430.     dc.w    $7E0F,$FFFE,$180,$357
  1431.     dc.w    $7F0F,$FFFE,$180,$123
  1432.     dc.w    $100,$200
  1433.     dc.w    $108,0,$10A,0,$E0
  1434.  
  1435. bit0:    dc.w    5,$E2
  1436. bit1:    dc.w    $57CE,$E4
  1437. bit2:    dc.w    5,$E6
  1438. bit3:    dc.w    $57CE,$E8
  1439. bit4:    dc.w    5,$EA
  1440. bit5:    dc.w    $57CE,$EC
  1441. bit6:    dc.w    5,$EE
  1442. bit7:    dc.w    $57CE,$F0
  1443. bit8:    dc.w    5,$F2
  1444.     dc.w    $6E76,$102,0,$104,0,$92,$38,$94
  1445.     dc.w    $D0,$8E,$8081,$90,$30C1,$8101,$FFFE,$100,$5200,$180
  1446. lbW2486    
  1447.     dc.w    $123,$182,$335,$184,$335,$186,$668,$188,$335,$18A
  1448.     dc.w    $668,$18C,$668,$18E,$99B,$190,$335,$192,$668,$194
  1449.     dc.w    $668,$196,$99B,$198,$668,$19A,$99B,$19C,$99B,$19E
  1450.     dc.w    $CCE,$1A0
  1451. lbW24C6
  1452.     dc.w    $6F7,$1A2,$6F7,$1A4,$6F7,$1A6,$6F7,$1A8,$6F7,$1AA
  1453.     dc.w    $6F7,$1AC,$6F7,$1AE,$6F7,$1B0,$6F7,$1B2,$6F7,$1B4
  1454.     dc.w    $6F7,$1B6,$6F7,$1B8,$6F7,$1BA,$6F7,$1BC,$6F7,$1BE
  1455.     dc.w    $6F7,$FFDF,$FFFE,$120F,$FFFE,$100,$200,$182,$123
  1456.     dc.w    $184,$123,$186,$123,$188,$123,$18A,$123,$18C,$123
  1457.     dc.w    $18E,$123,$190,$123,$192,$123,$194,$123,$196,$123
  1458.     dc.w    $198,$123,$19A,$123,$19C,$123,$19E,$123,$150F,$FFFE
  1459.     dc.w    $182,0,$180,$9BD,$162D,$FFFE,$180
  1460. lbW255E
  1461.     dc.w    0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1462.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1463.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1464.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1465.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1466.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1467.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1468.     dc.w    $172D,$FFFE,$180,0,$180,0,$180,0,$180,0,$180,0,$180
  1469.     dc.w    0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1470.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1471.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1472.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1473.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1474.     dc.w    $180,0,$180,0,$180,0,$180,0,$180,0,$180,0,$180,0
  1475.     dc.w    $180,0,$180,0,$180
  1476. lbW26F2
  1477.     dc.w    0,$180F,$FFFE,$180,$357,$190F,$FFFE,$180,$35,$1B01
  1478.     dc.w    $FFFE,$108,$E4,$10A,$E4
  1479. lbW2712
  1480.     dc.w    $E0,7,$E2,$7002
  1481.     dc.w    $E4,7,$E6,$705C
  1482.     dc.w    $E8,7,$EA,$70B6
  1483.     dc.w    $100,$3200
  1484.     dc.w    $102,0
  1485. cop2:    dc.w    $92,$30,$94,$D0
  1486.     dc.w    $180,$35,$182,$AAA,$184,$777,$186,$444,$188,0
  1487.     dc.w    $18A,$EEE,$18C,$B52,$18E,$CC
  1488.     dc.w    $2F01,$FFFE,$182,$35,$184,$35,$186,$35,$188,$35
  1489.     dc.w    $18A,$35,$18C,$35,$18E,$35,$FFFF,$FFFE
  1490. lamba:    dc.w    $FCC7,$FED4
  1491.     dc.w    0,$FCC7,$12C,0,$FDF3,$12C,0,$FDF3,$64,0,$FD8F,0,0
  1492.     dc.w    $FD8F,$FFCE,0,$FE57,$FFCE,0,$FE57,$FF6A,0,$FD8F
  1493.     dc.w    $FF6A,0,$FD8F,$FF38,0,$FEBB,$FF38,0,$FEBB,$FED4,0
  1494.     dc.w    $FEED,$FED4,0,$FEED,$FF38,0,$FF83,$FF38,0,$FF83
  1495.     dc.w    $12C,0,$AF,$12C,0,$AF,$64,0,$4B,0,0,$4B,$FF38,0,$E1
  1496.     dc.w    $FF38,0,$E1,$FED4,0,$113,$FED4,0,$113,$12C,0,$307
  1497.     dc.w    $12C,0,$307,$C8,0,$23F,$C8,0,$23F,$64,0,$1DB,0,0
  1498.     dc.w    $1DB,$FED4,0,$FFFF
  1499. devre:    dc.w    0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8
  1500.     dc.w    8,9,9,10,10,11,11,0,12,13,13,14,14,15,15,$10,$10
  1501.     dc.w    $11,$11,$12,$12,$13,$13,$14,$14,$15,$15,12,$16,$17
  1502.     dc.w    $17,$18,$18,$19,$19,$1A,$1A,$1B,$1B,$1C,$1C,$1D,$1D
  1503.     dc.w    $16
  1504. mmm:    dc.w    $FCE0,$FD44,0,0,$2BC,0,$320,$FD44,0,$FDA8,$FDA8
  1505.     dc.w    0,0,$1F4,0,$258,$FDA8,0,$64,$FDA8,0,$64,$FF38,0
  1506.     dc.w    $12C,$FF38,0,0,$12C,0,$FED4,$FF38,0,$FF9C,$FF38,0
  1507.     dc.w    $FF9C,$FDA8,0,$FFFF
  1508. kkk:    dc.w    0,1,1,2,2,0,3,4,4,5,5,6,6,7,7,8
  1509.     dc.w    8,9,9,10,10,11,11,12,12,3,0,13,1,14,2,15,13,14,14
  1510.     dc.w    15,15,13
  1511. lll:    dc.w    $FE0C,$FF38,0,$FE0C,$C8,0,$FF9C,$C8,0
  1512.     dc.w    $FF9C,$FF38,0,$FE0C,$FF38,$1F4,$FE0C,$C8,$1F4,$FF9C
  1513.     dc.w    $C8,$1F4,$FF9C,$FF38,$1F4,$64,$FF38,0,$64,$C8,0
  1514.     dc.w    $1F4,$C8,0,$1F4,$FF38,0,$64,$FF38,$1F4,$64,$C8,$1F4
  1515.     dc.w    $1F4,$C8,$1F4,$1F4,$FF38,$1F4,$FFFF
  1516. ddd:    dc.w    0,1,1,2,2,3,3,0
  1517.     dc.w    4,5,5,6,6,7,7,4,0,4,1,5,2,6,3,7,8,9,9,10,10,11,11,8
  1518.     dc.w    12,13,13,14,14,15,15,12,8,12,9,13,10,14,11,15
  1519. lbL2A08
  1520.     blk.l    100,0
  1521. lbW2B98
  1522.     dc.w    0,$28,$50,$78,$A0,$C8,$F0,$118,$140,$168,$190,$1B8
  1523.     dc.w    $1E0,$208,$230,$258,$280,$2A8,$2D0,$2F8,$320,$348
  1524.     dc.w    $370,$398,$3C0,$3E8,$410,$438,$460,$488,$4B0,$4D8
  1525.     dc.w    $500,$528,$550,$578,$5A0,$5C8,$5F0,$618,$640,$668
  1526.     dc.w    $690,$6B8,$6E0,$708,$730,$758,$780,$7A8,$7D0,$7F8
  1527.     dc.w    $820,$848,$870,$898,$8C0,$8E8,$910,$938,$960,$988
  1528.     dc.w    $9B0,$9D8,$A00,$A28,$A50,$A78,$AA0,$AC8,$AF0,$B18
  1529.     dc.w    $B40,$B68,$B90,$BB8,$BE0,$C08,$C30,$C58,$C80,$CA8
  1530.     dc.w    $CD0,$CF8,$D20,$D48,$D70,$D98,$DC0,$DE8,$E10,$E38
  1531.     dc.w    $E60,$E88,$EB0,$ED8,$F00,$F28,$F50,$F78,$FA0,$FC8
  1532.     dc.w    $FF0,$1018,$1040,$1068,$1090,$10B8,$10E0,$1108
  1533.     dc.w    $1130,$1158,$1180,$11A8,$11D0,$11F8,$1220,$1248
  1534.     dc.w    $1270,$1298,$12C0,$12E8,$1310,$1338,$1360,$1388
  1535.     dc.w    $13B0,$13D8,$1400,$1428,$1450,$1478,$14A0,$14C8
  1536.     dc.w    $14F0,$1518,$1540,$1568,$1590,$15B8,$15E0,$1608
  1537.     dc.w    $1630,$1658,$1680,$16A8,$16D0,$16F8,$1720,$1748
  1538.     dc.w    $1770,$1798,$17C0,$17E8,$1810,$1838,$1860,$1888
  1539.     dc.w    $18B0,$18D8,$1900,$1928,$1950,$1978,$19A0,$19C8
  1540.     dc.w    $19F0,$1A18,$1A40,$1A68,$1A90,$1AB8,$1AE0,$1B08
  1541.     dc.w    $1B30,$1B58,$1B80,$1BA8,$1BD0,$1BF8,$1C20,$1C48
  1542.     dc.w    $1C70,$1C98,$1CC0,$1CE8,$1D10,$1D38,$1D60,$1D88
  1543.     dc.w    $1DB0,$1DD8,$1E00,$1E28,$1E50,$1E78,$1EA0,$1EC8
  1544.     dc.w    $1EF0,$1F18,$1F40,$1F68,$1F90,$1FB8,$1FE0,$2008
  1545.     dc.w    $2030,$2058,$2080,$20A8,$20D0,$20F8,$2120,$2148
  1546.     dc.w    $2170,$2198,$21C0,$21E8,$2210,$2238,$2260,$2288
  1547.     dc.w    $22B0,$22D8,$2300,$2328,$2350,$2378,$23A0,$23C8
  1548.     dc.w    $23F0,$2418,$2440,$2468,$2490,$24B8,$24E0,$2508
  1549.     dc.w    $2530,$2558,$2580,$25A8,$25D0,$25F8,$2620,$2648
  1550.     dc.w    $2670,$2698,$26C0,$26E8,$2710,$2738,$2760,$2788
  1551.     dc.w    $27B0,$27D8
  1552. lbW2D98
  1553.     dc.w    0,$190,$321,$4B2,$643,$7D3,$963,$AF3,$C82,$E11,$F9F
  1554.     dc.w    $112D,$12BA,$1446,$15D2,$175D,$18E6,$1A6F,$1BF7
  1555.     dc.w    $1D7E,$1F04,$2088,$220B,$238D,$250E,$268D,$280A
  1556.     dc.w    $2986,$2B01,$2C7A,$2DF1,$2F66,$30DA,$324C,$33BB
  1557.     dc.w    $3529,$3695,$37FE,$3966,$3ACB,$3C2E,$3D8F,$3EED
  1558.     dc.w    $4049,$41A3,$42FA,$444E,$45A0,$46EF,$483C,$4985
  1559.     dc.w    $4ACC,$4C10,$4D51,$4E8F,$4FCA,$5102,$5237,$5369
  1560.     dc.w    $5497,$55C3,$56EB,$580F,$5931,$5A4F,$5B69,$5C80
  1561.     dc.w    $5D93,$5EA3,$5FAF,$60B8,$61BD,$62BE,$63BB,$64B4
  1562.     dc.w    $65AA,$669C,$6789,$6873,$6959,$6A3B,$6B18,$6BF2
  1563.     dc.w    $6CC7,$6D98,$6E65,$6F2E,$6FF3,$70B3,$716F,$7226
  1564.     dc.w    $72DA,$7388,$7433,$74D9,$757A,$7617,$76AF,$7743
  1565.     dc.w    $77D3,$785D,$78E3,$7965,$79E2,$7A5A,$7ACD,$7B3C
  1566.     dc.w    $7BA6,$7C0B,$7C6B,$7CC7,$7D1E,$7D70,$7DBE,$7E06
  1567.     dc.w    $7E4A,$7E89,$7EC3,$7EF8,$7F28,$7F53,$7F7A,$7F9B
  1568.     dc.w    $7FB8,$7FD0,$7FE3,$7FF1,$7FFA,$7FFE,$7FFD,$7FF8
  1569.     dc.w    $7FED,$7FDE,$7FCA,$7FB0,$7F92,$7F6F,$7F47,$7F1B
  1570.     dc.w    $7EE9,$7EB2,$7E77,$7E37,$7DF2,$7DA8,$7D59,$7D06
  1571.     dc.w    $7CAD,$7C50,$7BEE,$7B88,$7B1C,$7AAC,$7A38,$79BE
  1572.     dc.w    $7940,$78BD,$7836,$77AA,$7719,$7684,$75EA,$754C
  1573.     dc.w    $74AA,$7402,$7357,$72A7,$71F2,$7139,$707C,$6FBB
  1574.     dc.w    $6EF5,$6E2B,$6D5D,$6C8A,$6BB4,$6AD9,$69FA,$6917
  1575.     dc.w    $6830,$6745,$6657,$6564,$646D,$6373,$6274,$6172
  1576.     dc.w    $606C,$5F63,$5E55,$5D45,$5C30,$5B18,$59FD,$58DE
  1577.     dc.w    $57BC,$5696,$556D,$5441,$5311,$51DF,$50A9,$4F70
  1578.     dc.w    $4E34,$4CF5,$4BB3,$4A6F,$4927,$47DC,$468F,$453F
  1579.     dc.w    $43ED,$4298,$4140,$3FE6,$3E89,$3D2A,$3BC9,$3A65
  1580.     dc.w    $38FF,$3797,$362D,$34C0,$3352,$31E2,$306F,$2EFB
  1581.     dc.w    $2D85,$2C0E,$2A94,$2919,$279D,$261F,$249F,$231E
  1582.     dc.w    $219C,$2019,$1E94,$1D0E,$1B87,$19FF,$1875,$16EB
  1583.     dc.w    $1560,$13D5,$1248,$10BB,$F2D,$D9F,$C10,$A80,$8F0
  1584.     dc.w    $760,$5D0,$43F,$2AE,$11D,$FF8D,$FDFC,$FC6B,$FADB
  1585.     dc.w    $F94A,$F7BA,$F62A,$F49A,$F30B,$F17C,$EFEE,$EE61
  1586.     dc.w    $ECD4,$EB48,$E9BC,$E832,$E6A8,$E520,$E398,$E212
  1587.     dc.w    $E08D,$DF09,$DD86,$DC04,$DA84,$D905,$D788,$D60D
  1588.     dc.w    $D493,$D31A,$D1A4,$D02F,$CEBC,$CD4B,$CBDB,$CA6E
  1589.     dc.w    $C903,$C79A,$C633,$C4CE,$C36C,$C20C,$C0AE,$BF53
  1590.     dc.w    $BDFA,$BCA4,$BB50,$B9FF,$B8B1,$B765,$B61C,$B4D6
  1591.     dc.w    $B393,$B253,$B116,$AFDC,$AEA5,$AD71,$AC40,$AB12
  1592.     dc.w    $A9E8,$A8C1,$A79D,$A67D,$A560,$A446,$A330,$A21E
  1593.     dc.w    $A10F,$A004,$9EFD,$9DF9,$9CF9,$9BFD,$9B05,$9A10
  1594.     dc.w    $9920,$9833,$974B,$9666,$9585,$94A9,$93D1,$92FC
  1595.     dc.w    $922C,$9161,$9099,$8FD6,$8F17,$8E5C,$8DA6,$8CF4
  1596.     dc.w    $8C46,$8B9D,$8AF8,$8A58,$89BD,$8926,$8893,$8805
  1597.     dc.w    $877C,$86F7,$8677,$85FC,$8585,$8513,$84A5,$843D
  1598.     dc.w    $83D9,$837A,$831F,$82CA,$8279,$822D,$81E6,$81A4
  1599.     dc.w    $8166,$812E,$80FA,$80CB,$80A1,$807C,$805C,$8041
  1600.     dc.w    $802A,$8019,$800C,$8004,$8002,$8004,$800B,$8017
  1601.     dc.w    $8027,$803D,$8058,$8077,$809C,$80C5,$80F3,$8126
  1602.     dc.w    $815E,$819B,$81DC,$8223,$826E,$82BE,$8313,$836D
  1603.     dc.w    $83CB,$842E,$8496,$8503,$8575,$85EB,$8665,$86E5
  1604.     dc.w    $8769,$87F2,$887F,$8911,$89A7,$8A42,$8AE2,$8B86
  1605.     dc.w    $8C2E,$8CDB,$8D8C,$8E42,$8EFC,$8FBB,$907D,$9144
  1606.     dc.w    $9210,$92DF,$93B3,$948A,$9566,$9646,$972A,$9812
  1607.     dc.w    $98FE,$99EE,$9AE2,$9BDA,$9CD6,$9DD5,$9ED8,$9FDF
  1608.     dc.w    $A0EA,$A1F8,$A30A,$A41F,$A538,$A655,$A774,$A898
  1609.     dc.w    $A9BE,$AAE8,$AC15,$AD46,$AE79,$AFB0,$B0EA,$B226
  1610.     dc.w    $B366,$B4A9,$B5EE,$B737,$B882,$B9D0,$BB21,$BC74
  1611.     dc.w    $BDCA,$BF22,$C07D,$C1DB,$C33A,$C49C,$C601,$C767
  1612.     dc.w    $C8D0,$CA3B,$CBA8,$CD17,$CE88,$CFFA,$D16F,$D2E5
  1613.     dc.w    $D45D,$D5D7,$D753,$D8D0,$DA4E,$DBCE,$DD4F,$DED2
  1614.     dc.w    $E056,$E1DB,$E361,$E4E9,$E671,$E7FA,$E985,$EB10
  1615.     dc.w    $EC9C,$EE29,$EFB6,$F144,$F2D3,$F462,$F5F1,$F781
  1616.     dc.w    $F912,$FAA2,$FC33
  1617. lbW3198
  1618.     dc.w    $7FFF,$7FFC,$7FF5,$7FE8,$7FD7,$7FC1,$7FA6,$7F86
  1619.     dc.w    $7F62,$7F38,$7F09,$7ED6,$7E9E,$7E61,$7E1F,$7DD8
  1620.     dc.w    $7D8C,$7D3C,$7CE7,$7C8D,$7C2E,$7BCA,$7B62,$7AF5
  1621.     dc.w    $7A83,$7A0D,$7992,$7912,$788E,$7805,$7777,$76E5
  1622.     dc.w    $764E,$75B3,$7513,$746E,$73C6,$7318,$7267,$71B1
  1623.     dc.w    $70F6,$7038,$6F75,$6EAD,$6DE2,$6D12,$6C3E,$6B66
  1624.     dc.w    $6A8A,$69AA,$68C5,$67DD,$66F1,$6600,$650C,$6414
  1625.     dc.w    $6318,$6219,$6115,$600E,$5F03,$5DF5,$5CE3,$5BCD
  1626.     dc.w    $5AB4,$5997,$5877,$5753,$562D,$5503,$53D5,$52A4
  1627.     dc.w    $5171,$503A,$4F00,$4DC3,$4C83,$4B40,$49FA,$48B1
  1628.     dc.w    $4766,$4618,$44C7,$4374,$421D,$40C5,$3F6A,$3E0C
  1629.     dc.w    $3CAC,$3B4A,$39E6,$387F,$3716,$35AB,$343E,$32CF
  1630.     dc.w    $315E,$2FEB,$2E76,$2D00,$2B87,$2A0D,$2892,$2715
  1631.     dc.w    $2596,$2416,$2295,$2112,$1F8E,$1E09,$1C83,$1AFB
  1632.     dc.w    $1973,$17E9,$165F,$14D3,$1347,$11BB,$102D,$E9F,$D10
  1633.     dc.w    $B81,$9F2,$862,$6D2,$541,$3B0,$21F,$8E,$FEFE,$FD6D
  1634.     dc.w    $FBDD,$FA4C,$F8BB,$F72B,$F59B,$F40C,$F27D,$F0EE
  1635.     dc.w    $EF60,$EDD3,$EC47,$EABB,$E930,$E7A6,$E61C,$E494
  1636.     dc.w    $E30D,$E187,$E002,$DE7F,$DCFC,$DB7B,$D9FC,$D87D
  1637.     dc.w    $D701,$D586,$D40C,$D295,$D11E,$CFAA,$CE38,$CCC7
  1638.     dc.w    $CB59,$C9EC,$C882,$C71A,$C5B4,$C450,$C2EE,$C18F
  1639.     dc.w    $C032,$BED8,$BD80,$BC2B,$BAD8,$B988,$B83A,$B6F0
  1640.     dc.w    $B5A8,$B463,$B321,$B1E2,$B0A6,$AF6C,$AE36,$AD04
  1641.     dc.w    $ABD4,$AAA7,$A97E,$A858,$A736,$A617,$A4FB,$A3E3
  1642.     dc.w    $A2CE,$A1BD,$A0B0,$9FA6,$9EA0,$9D9D,$9C9F,$9BA4
  1643.     dc.w    $9AAD,$99BA,$98CB,$97E0,$96F9,$9615,$9536,$945B
  1644.     dc.w    $9384,$92B2,$91E3,$9119,$9053,$8F91,$8ED4,$8E1A
  1645.     dc.w    $8D66,$8CB5,$8C09,$8B62,$8ABF,$8A20,$8986,$88F1
  1646.     dc.w    $8860,$87D4,$874C,$86C9,$864A,$85D1,$855C,$84EB
  1647.     dc.w    $8480,$8419,$83B6,$8359,$8300,$82AC,$825D,$8213
  1648.     dc.w    $81CE,$818D,$8152,$811B,$80E9,$80BC,$8093,$8070
  1649.     dc.w    $8052,$8038,$8023,$8014,$8009,$8003,$8002,$8006
  1650.     dc.w    $800E,$801C,$802F,$8046,$8062,$8084,$80AA,$80D5
  1651.     dc.w    $8105,$813A,$8173,$81B2,$81F5,$823D,$828A,$82DC
  1652.     dc.w    $8333,$838E,$83EE,$8453,$84BD,$852B,$859E,$8616
  1653.     dc.w    $8692,$8713,$8799,$8823,$88B2,$8946,$89DE,$8A7B
  1654.     dc.w    $8B1C,$8BC1,$8C6B,$8D1A,$8DCD,$8E84,$8F40,$9000
  1655.     dc.w    $90C4,$918C,$9259,$932A,$93FF,$94D8,$95B6,$9697
  1656.     dc.w    $977D,$9866,$9953,$9A45,$9B3A,$9C33,$9D30,$9E31
  1657.     dc.w    $9F35,$A03E,$A14A,$A259,$A36C,$A483,$A59D,$A6BB
  1658.     dc.w    $A7DC,$A900,$AA28,$AB53,$AC81,$ADB3,$AEE8,$B01F
  1659.     dc.w    $B15A,$B298,$B3D9,$B51D,$B663,$B7AD,$B8F9,$BA48
  1660.     dc.w    $BB99,$BCEE,$BE44,$BF9E,$C0FA,$C258,$C3B8,$C51B
  1661.     dc.w    $C680,$C7E8,$C951,$CABD,$CC2A,$CD9A,$CF0C,$D07F
  1662.     dc.w    $D1F4,$D36B,$D4E4,$D65E,$D7DA,$D958,$DAD7,$DC57
  1663.     dc.w    $DDD9,$DF5C,$E0E0,$E266,$E3ED,$E574,$E6FD,$E887
  1664.     dc.w    $EA12,$EB9D,$ED29,$EEB6,$F044,$F1D2,$F361,$F4F0
  1665.     dc.w    $F680,$F810,$F9A0,$FB31,$FCC2,$FE53,$FFE3,$173,$304
  1666.     dc.w    $495,$626,$7B6,$946,$AD6,$C65,$DF4,$F83,$1110,$129D
  1667.     dc.w    $142A,$15B5,$1740,$18CA,$1A53,$1BDB,$1D62,$1EE7
  1668.     dc.w    $206C,$21EF,$2371,$24F2,$2671,$27EF,$296B,$2AE5
  1669.     dc.w    $2C5E,$2DD6,$2F4B,$30BF,$3231,$33A1,$350E,$367A
  1670.     dc.w    $37E4,$394C,$3AB1,$3C14,$3D75,$3ED4,$4030,$418A
  1671.     dc.w    $42E1,$4436,$4588,$46D7,$4823,$496D,$4AB4,$4BF8
  1672.     dc.w    $4D3A,$4E78,$4FB3,$50EC,$5221,$5353,$5481,$55AD
  1673.     dc.w    $56D5,$57FA,$591C,$5A3A,$5B54,$5C6C,$5D7F,$5E8F
  1674.     dc.w    $5F9C,$60A4,$61AA,$62AB,$63A8,$64A2,$6598,$668A
  1675.     dc.w    $6778,$6862,$6948,$6A2A,$6B08,$6BE2,$6CB8,$6D89
  1676.     dc.w    $6E56,$6F1F,$6FE4,$70A5,$7161,$7219,$72CD,$737C
  1677.     dc.w    $7426,$74CD,$756E,$760C,$76A4,$7739,$77C8,$7853
  1678.     dc.w    $78DA,$795B,$79D8,$7A51,$7AC5,$7B34,$7B9E,$7C04
  1679.     dc.w    $7C64,$7CC1,$7D18,$7D6A,$7DB8,$7E01,$7E45,$7E84
  1680.     dc.w    $7EBE,$7EF4,$7F25,$7F50,$7F77,$7F99,$7FB6,$7FCE
  1681.     dc.w    $7FE2,$7FF0
  1682. lbW3598
  1683.     dc.w    0,$FFFF,$8000,$7FFF,$C000,$3FFF,$E000,$1FFF,$F000
  1684.     dc.w    $FFF,$F800,$7FF,$FC00,$3FF,$FE00,$1FF,$FF00,$FF
  1685.     dc.w    $FF80,$7F,$FFC0,$3F,$FFE0,$1F,$FFF0,15,$FFF8,7
  1686.     dc.w    $FFFC,3,$FFFE,1
  1687. dalga:
  1688.         rts
  1689. bura:    dc.l    0
  1690. degerler:    dc.l    0
  1691. degerler1:    dc.l    0
  1692. degerler2:    dc.l    0
  1693. devir:        dc.l    0
  1694.